#lang rosetta-racket


(require "spherical-tear.rkt")

(provide spherical-tear-example)


(define (spherical-tear-example)
  (view
   (xyz -3.3514458112350063 -3.301393933035425 2.121735769286745)
   (xyz -0.7891924434112509 -0.777406175329905 0.3569683809096326)
   (perspective 100)
   (spherical-tear 1 0.9 0.1 1.2 18)))